﻿Public Class Paladin : Inherits Caballeria
    Private Property Magia As Integer
    Private Const FUERZA_PAL = FUERZA_CAB
    Private Const ATAQUE_PAL = ATAQUE_CAB + 1
    Private Const VELOCIDAD_PAL = VELOCIDAD_CAB
    Private Const VIDA_PAL = VIDA_CAB + 1
    Private Const COSTE_PAL = COSTE_CAB + 4
    Private Const DEFENSA_PAL = DEFENSA_CAB
    Private Const DISCIPLINA_PAL = DISCIPLINA_CAB
    Private Const TAMAÑO_PAL = TAMAÑO_CAB
    Private Const MAGIA_PAL = 3


    Public Sub New()
        Me.Fuerza = FUERZA_PAL
        Me.Ataque = ATAQUE_PAL
        Me.Velocidad = VELOCIDAD_PAL
        Me.Vida = VIDA_PAL
        Me.Defensa = DEFENSA_PAL
        Me.Coste = COSTE_PAL
        Me.Tamaño = TAMAÑO_PAL
        Me.Disciplina = DISCIPLINA_PAL
        Me.Magia = MAGIA_PAL
    End Sub


End Class
